home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / g4c / gm / fpcalc.gc < prev    next >
Text File  |  1996-10-28  |  3KB  |  196 lines
  1. G4C
  2.  
  3. ; A simple calculator GUI with floating point calculation. No 
  4. ; fancy bits, just functional.
  5. ; GUIS:Fonts/gc.font (c) G.Maddox
  6. ; G.Maddox 26 Sep 1996
  7.  
  8.  
  9. WinBig -1 -1 197 124 "Calculator"
  10. WinSmall 200 0 235 -1
  11. WinType 11110000
  12. WinOut NIL:
  13.  
  14.  
  15. xOnLoad
  16. IfExists PORT AREXX
  17.     Setvar cal_disp "0"
  18.     Setvar .cal_form ""
  19.     Setvar cal_swtch "1"
  20.     GuiOpen FPCalc.gc
  21.     Update FPCalc.gc 21 $cal_disp
  22. Else
  23.     CLI 'SYS:System/RexxMast >NIL:'
  24.     Setvar cal_disp "0"
  25.     Setvar .cal_form ""
  26.     Setvar cal_swtch "1"
  27.     GuiOpen FPCalc.gc
  28.     Update FPCalc.gc 21 $cal_disp
  29. Endif
  30.  
  31. xOnClose
  32. Delvar cal_#?
  33. Delete env:.cal_#?
  34. GuiQuit FPCalc.gc
  35.  
  36.  
  37. BOX 0 0 0 0 OUT BUTTON
  38. BOX 4 2 189 120 OUT ICONDROP
  39. BOX 10 5 177 114 OUT BUTTON
  40.  
  41.  
  42.  
  43. xButton 30 33 30 14 "T"
  44. Gadkey 1
  45. GadFont gc.font 14 000
  46. Setvar cal_knum "1"
  47. Appvar .cal_form 1
  48. Gosub FPCalc.gc enter
  49.  
  50. xButton 66 33 30 14 "t"
  51. Gadkey 2
  52. GadFont gc.font 14 000
  53. Setvar cal_knum "2"
  54. Appvar .cal_form 2
  55. Gosub FPCalc.gc enter
  56.  
  57. xButton 102 33 30 14 "U"
  58. Gadkey 3
  59. GadFont gc.font 14 000
  60. Setvar cal_knum "3"
  61. Appvar .cal_form 3
  62. Gosub FPCalc.gc enter
  63.  
  64. xButton 138 33 30 14 "}"
  65. Gadkey *
  66. GadFont gc.font 14 000
  67. Appvar .cal_form *
  68. Setvar cal_disp ""
  69. Update FPCalc.gc 21 $cal_disp
  70.  
  71. xButton 30 97 30 14 "#"
  72. Gadkey c
  73. GadFont gc.font 14 000
  74. Setvar .cal_form ""
  75. Setvar cal_disp ""
  76. Update FPCalc.gc 21 0 ;$cal_disp
  77.  
  78. xButton 30 49 30 14 "u"
  79. Gadkey 4
  80. GadFont gc.font 14 000
  81. Setvar cal_knum "4"
  82. Appvar .cal_form 4
  83. Gosub FPCalc.gc enter
  84.  
  85. xButton 66 49 30 14 "V"
  86. Gadkey 5
  87. GadFont gc.font 14 000
  88. Setvar cal_knum "5"
  89. Appvar .cal_form 5
  90. Gosub FPCalc.gc enter
  91.  
  92. xButton 102 49 30 14 "v"
  93. Gadkey 6
  94. GadFont gc.font 14 000
  95. Setvar cal_knum "6"
  96. Appvar .cal_form 6
  97. Gosub FPCalc.gc enter
  98.  
  99. xButton 138 49 30 14 "]"
  100. Gadkey +
  101. GadFont gc.font 14 000
  102. Appvar .cal_form +
  103. Setvar cal_disp ""
  104. Update FPCalc.gc 21 $cal_disp
  105.  
  106. xButton 66 97 30 14 "c"
  107. GadKey #8
  108. GadFont gc.font 14 000
  109. Cutvar .cal_form CUT CHAR -1 end
  110. Cutvar cal_disp CUT CHAR -1 end
  111. Update FPCalc.gc 21 $cal_disp
  112.  
  113. xButton 30 65 30 14 "W"
  114. Gadkey 7
  115. GadFont gc.font 14 000
  116. Setvar cal_knum "7"
  117. Appvar .cal_form 7
  118. Gosub FPCalc.gc enter
  119.  
  120. xButton 66 65 30 14 "w"
  121. Gadkey 8
  122. GadFont gc.font 14 000
  123. Setvar cal_knum "8"
  124. Appvar .cal_form 8
  125. Gosub FPCalc.gc enter
  126.  
  127. xButton 102 65 30 14 "("
  128. Gadkey 9
  129. GadFont gc.font 14 000
  130. Setvar cal_knum "9"
  131. Appvar .cal_form 9
  132. Gosub FPCalc.gc enter
  133.  
  134. xButton 138 65 30 14 "["
  135. Gadkey -
  136. GadFont gc.font 14 000
  137. Appvar .cal_form -
  138. Setvar cal_disp ""
  139. Update FPCalc.gc 21 $cal_disp
  140.  
  141. xButton 30 81 30 14 ">"
  142. Gadkey .
  143. GadFont gc.font 14 000
  144. Setvar cal_knum "."
  145. Appvar .cal_form .
  146. Gosub FPCalc.gc enter
  147.  
  148. xButton 66 81 30 14 ")"
  149. Gadkey 0
  150. GadFont gc.font 14 000
  151. Setvar cal_knum "0"
  152. Appvar .cal_form 0
  153. Gosub FPCalc.gc enter
  154.  
  155. xButton 102 81 30 14 "="
  156. Gadkey #13
  157. GadFont gc.font 14 000
  158. If $cal_swtch = 0
  159.     Setvar cal_swtch "1"
  160. Else
  161.     Setvar cal_swtch "0"
  162. Endif
  163. Gosub FPCalc.gc calc
  164.  
  165. xButton 138 81 30 14 "{"
  166. Gadkey /
  167. GadFont gc.font 14 000
  168. Appvar .cal_form /
  169. Setvar cal_disp ""
  170. Update FPCalc.gc 21 $cal_disp
  171.  
  172. Text 18 10 160 16 $cal_disp 15 BOX
  173. GadID 21
  174. GadFont gc.font 14 000
  175.  
  176.  
  177.  
  178. xRoutine calc
  179. If $.cal_form > ""
  180.     CLI 'sys:rexxc/rx \"say $.cal_form\" >env:.cal_res\n'
  181.     Update FPCalc.gc 21 $.cal_res
  182.     Setvar .cal_calc ""
  183. Endif 
  184. Return
  185.  
  186. xRoutine enter
  187. If $cal_swtch = 0
  188.     Appvar cal_disp '$cal_knum'
  189. Else
  190.     Setvar cal_disp '$cal_knum'
  191. Endif
  192. Setvar cal_swtch "0"
  193. Update FPCalc.gc 21 $cal_disp
  194. Return
  195.  
  196.